; ORIGINAL: 3dt2.1/examples/error.scm
; $Id: error.scm,v 1.3 1996/10/21 15:59:06 aed Exp $
;- error.scm ------------------------------------------------------
; Display error messages in a specific format
;------------------------------------------------------------------
(define (error-string error-msg)
  (string-append
   (format #f "~s: " (car error-msg))
   (apply format #f (cdr error-msg))
   ))
(set! error-handler
      (lambda error-msg
        (display "*** Error") (newline)
        (display (error-string error-msg)) (newline)
        ))
